7 SYS57812"FORMATTER.ML",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
10 POKE53280,0:POKE53281,0:OPEN15,8,15,"I":CLOSE15:SYS49152:POKE53272,21
11 A=0:I=0
12 READA:IFA<>-1THENPOKE828+I,A:I=I+1:GOTO12
14 FF$="                "
15 S$="                                      "
16 FORI=0TO3:READM$(I):NEXT
21 PRINT"[147][156]  1 5 4 1    F O R M A T    F L A S H"
22 PRINT"          [152]BY ROGER A. BACHELDER"
30 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
31 PRINT"    [150]THE FORMATTING ROUTINES IN THIS"
32 PRINT"    PROGRAM WILL NOT[150] WORK ON A 1571"
33 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
36 POKE214,10:PRINT:FORI=0TO3:PRINT""TAB(9)M$(I):NEXT
37 POKE214,20:PRINT:PRINT"[154]   USE CRSR[154] KEYS AND RETURN[154] TO SELECT"
40 X=10:Y=0:H=0:G=0:ID=10
41 POKE214,X+Y*2:PRINT
42 PRINTTAB(9)"[155]"M$(Y)"[145]"
43 GETA$:IFA$<>"[145]"ANDA$<>""ANDA$<>CHR$(13)THEN43
44 PRINTTAB(9)""M$(Y)
45 IFA$=CHR$(13)THENONY+1GOTO75,500,600,700
46 IFA$=""THENY=Y+1:IFY>3THENY=0
47 IFA$="[145]"THENY=Y-1:IFY<0THENY=3
48 GOTO41
75 POKE214,10:PRINT:FORI=0TO11:PRINTS$:NEXT
76 POKE214,11:PRINT:IFGTHEN91
80 PRINT"      DISK NAME[158]:[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145]";
84 DN$="":LN%=16:GOSUB300:DN$=Q$
91 DL=LEN(DN$)
100 IFHTHENID=ID+1:DI$=RIGHT$(STR$(ID),2):GOTO119
105 PRINT"        DISK ID[158]:[163][163][157][157][145]";
112 LN%=2:GOSUB300:DI$=Q$
119 DI=LEN(DI$)
133 I1=ASC(LEFT$(DI$,1)):I2=ASC(RIGHT$(DI$,1))
140 PRINT"         INSERT DISK TO FORMAT"
143 POKE214,20:PRINT
145 IFHTHENPRINT"    RETURN[154] TO CONTINUE - F1[154] TO STOP":GOTO154
147 PRINT"[159]             PRESS RETURN"
154 GETA$:IFA$<>CHR$(13)ANDA$<>"[133]"THEN154
155 IFH ANDA$="[133]"THENRETURN
156 POKE214,11:PRINT:FORI=0TO11:PRINTS$:NEXT
157 POKE214,11:PRINT:PRINT"        [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
158 PRINT"        [221]                        [221]"
159 PRINT"        [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][159]"
160 PRINTTAB(11)DN$;TAB(29)DI$
161 PRINTTAB(15)"WORKING...":OPEN15,8,15
175 PRINT#15,"M-W"CHR$(13*16)CHR$(6)CHR$(16);FF$:F$=""
182 FORX=1TODL:A=ASC(MID$(DN$,X,1)+CHR$(0)):F$=F$+CHR$(A):NEXT
189 PRINT#15,"M-W"CHR$(13*16)CHR$(6)CHR$(DL);F$
196 PRINT#15,"M-W"CHR$(18)CHR$(0)CHR$(2)CHR$(I1)CHR$(I2)
203 PRINT#15,"M-E"CHR$(0)CHR$(5)
210 INPUT#15,A,B$,C,D
215 IFB$="OK"THENPRINT"[158]           A SUCCESSFUL FORMAT!":GOTO220
217 PRINT"[158]        "A;B$;C;D
220 FORT=0TO2000:NEXT:PRINT"[145]"S$
224 CLOSE15
230 IFHTHENG=1:GOTO75
240 GOTO21
300 Q$="":POKE198,0:U=53280
310 POKE646,RND(0)*15+1:GETA$:PRINT"[175][157]";
320 IFA$=""THEN310
330 IFA$=CHR$(13)THENPRINT" ":RETURN
340 IF(A$=CHR$(20)ANDLEN(Q$))THENQ$=LEFT$(Q$,LEN(Q$)-1):GOTO400
350 IFLEN(Q$)>=LN%THENT%=PEEK(U):POKEU,1:FORT=0TO50:NEXT:POKEU,T%:GOTO310
360 IFA$=" "THEN390
370 IFA$>="#"ANDA$<="[223]"THEN390
380 GOTO310
390 Q$=Q$+A$
400 PRINT""A$;:GOTO310
500 H=1:GOSUB75:GOTO21
600 PRINT"[147][154]"
610 SYS828
620 PRINT"[159]         PRESS SPACE[159] FOR MENU"
630 GETA$:IFA$<>" "THEN630
635 OPEN15,8,15,"I":CLOSE15:SYS49152
640 GOTO21
700 POKE214,20:PRINT:PRINT"[154]       QUIT?  ARE YOU SURE?  (Y[154]/N[154])   "
710 GETA$:IFA$<>"Y"ANDA$<>"N"THEN710
720 PRINT"[147]";:IFA$="N"THEN21
730 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,A:CLOSE15
740 IFA<>63THENEND
750 PRINT"[144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
760 PRINT"RUN"
770 POKE631,13:POKE632,13:POKE198,2:END
1000 DATA169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
1010 DATA133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
1015 DATA255,169,0,133,144
1020 DATA160,3,132,251,32,165,255,133,252,164,144,208,47,32,165,255
1025 DATA164,144,208,40,164,251,136,208,233,166,252
1030 DATA32,205,189,169,32,32,210,255,32,165,255,166,144,208,18,170,240,6
1040 DATA32,210,255,184,80,240,169,13,32,210,255,160,2,208,198,32,66,246,96,-1
1200 DATA"  FORMAT ONE DISKETTE  "
1210 DATA" FORMAT MANY DISKETTES "
1215 DATA"       DIRECTORY       "
1220 DATA"  RETURN TO LOADSTAR   "
10000 OPEN15,8,15,"S0:FORMAT FLASH":CLOSE15:SAVE"FORMAT FLASH",8:END